Private Sub Worksheet_Activate()

    ActiveSheet.PivotTables(1).PivotCache.Refresh

End Sub